\ core-ext 05.1.22 NAB

: VALUE ( x "name" --)
  create  ,  does> @ ;

: TO ( x "name" --)
  ' >body  state @
  if  postpone literal  postpone !
  else  !  then ; immediate

: 2>R DUP (2>r) DROP ; inline
: 2R> DUP (2r>) DROP ; inline

:  C"  [char] " parse dup c,
  postpone sliteral  postpone drop
  postpone 1- ; immediate

: ERASE  0 fill ;

' drop alias D>S

: .R  swap s>d rot d.r ;

: U>  swap u< ;

: U.R  swap 0 <# #s #> rot
  over -  dup 0> and  spaces type ;

: WITHIN ( test low high -- flag)
  over -  >r - r>  u< ;

: [COMPILE]  ' compile, ; immediate
